home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Erweiterung / DISK_MONITOR.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1989-06-01  |  4KB  |  90 lines
  1. GFA-AMIGAB
  2. DEVNAME
  3. IOADR    READREPLY
  4. SEKTORBUFFER
  5. TASKADR
  6. DEVNAME
  7. SEKTORPOSITION
  8. FEHLER
  9. SEKTORNUMMER
  10. FEHLER
  11. SECTOR_LESEN
  12. AUSGEBEN
  13. ZUMACHEN
  14. FEHLERMELDUNGEN
  15. Diskzugriff mit trackdisk.device auf einzelne Sektoren
  16. Minidiskmonitor f
  17. r GFA-Basic Programmierung
  18. Thomas Knab am 4.3.1989
  19. "Mit welchem Laufwerk arbeiten ? DF!
  20. In das Array fehler$() werden die Klartexte der Fehlermeldungen
  21. eingelesen
  22. Hier beginnen wir die Strukturen einzurichten
  23. Erst den Speicher f
  24. r IO_Request Struktur reservieren :
  25. Kein Speicher f
  26. r DISKIO!!FF
  27. Der Speicher f
  28. r die Informations
  29. bergabe:
  30. $Kein Speicher f
  31. r Reply Struktur !!!FF
  32. Nun noch den Speicher f
  33. r unseren eigenen Diskbuffer
  34. r einen Sektor (512 Bytes)
  35. Kein Speicher f
  36. r Buffer !!!FF
  37. Struktur Initialisieren
  38. Disk Device 
  39. ffnen
  40. trackdisk.device
  41. Laufwerk lw%, keine Flags
  42. Nur ein Fehlertest, ob alles gelungen ist.
  43. 0Trackdisk Device konnte nicht ge
  44. ffnet werden !!FF
  45.    LAUFWERK EXISTIERT NICHTF
  46.  Port wieder freigeben
  47.  Den Speicher wieder freigeben
  48. .   Erlaubte Disksektornummern sind: 0 bis 1759FF
  49.    Direktory ist auf Sektor 880F
  50. (   Bootblock (Virus?) ist Sektor 0 und 1FF
  51. 3   Fortsetzung und Ende der Ausgabe durch MaustasteF
  52. <   Programmende NUR durch '-1' !! um Strukturen zu schlie
  53.    Welchen Sektor lesen"
  54. IO-Struktur mit Werten versorgen
  55. Die Adresse der ReadReply-Routine 
  56. bergeben
  57. Commando: lesen (=2) 
  58. bergeben
  59. Die Adresse des Floppybuffers f
  60. r die Daten:
  61. Wieviel Bytes sollen gelsen werden  (ein Sektor) ?:
  62. Welchen Sektor der Disk lesen (in Bytes):
  63. ... und das Lesen beginnen
  64. Trackdiskfehler aufgetreten ?
  65.  DISK-Error : #"7
  66.  aufgetreten !!FF
  67.  Typ        :"
  68. Motor aus (9 = TD_MOTOR)
  69. Bytel
  70. nge 0
  71.  Keine Darstellungsm
  72. glichkeit f
  73. r ASCII-Zeichen kleiner 20
  74. "Unbekannter Fehler"
  75. "Sektor Header fehlt"
  76. ltige Sektor Preamble"
  77. ltige Sektor-ID"
  78. "Falsche Header Checksum"
  79. "Falsche Sektor Checksum"
  80. "Zuwenig Sektoren"
  81. ltiger Sektor Header"
  82. "Disk Schreibesch
  83. "Disk ist gewechselt worden"
  84. "Track nicht gefunden"
  85. "nicht genug Speicher"
  86. ltige Sektornummer"
  87. ltiges Laufwerk"
  88. "Laufwerk schon aktiv"
  89. "Reset-Phase"
  90.